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PROGRAMMING SERVICES 


During a specified number of months immediately following | 

initial availability of each licensed program designated as u™ 
*he Programming. Services. Period, and referenced in- the Sup- 
plement to Amended License Agreement for IBM Program Products, . 
the Customer may submit documentation to a designated IBM 

location when he encounters a problem which his diagnosis 
indicates. is caused by a licensed program error. During this 
period only, IBM through the program sponsor(s) will, with- 

out additional charge, respond to an error in the current 
unaltered release of the licensed program by issuing known 

error correction information. to the Customer reporting the 

problem and/or issuing corrected code or notice of avail- 

ability of corrected code. However, IBM does not guarantee .-.- 
service results or represent or warrant that all errors will 

be corrected. Any on-site programming services or assistance 

will be provided at a charge. 


Program error correction requests and/or comments concerning 
the contents of this publication should be addressed to: 


IBM Corporation 

8712 West Dodge Road 
Omaha, Nebraska 68114 
Attn: Mr. Don Larimer 


WARRANTY 


EACH LICENSED PROGRAM IS DISTRIBUTED ON AN 'AS IS' BASIS 
WITHOUT WARRANTY OF ANY KIND EITHER EXPRESS OR IMPLIED. 


Requests for copies of IBM publications should be made to 


your IBM Representative or to the IBM Branch Office serving 
your locality. 


‘© Copyright International Business Machines Corporation 1972 
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INTRODUCTION 


The purpose of this manual is to provide supplemental information on the 
design, logic, and coding of the System/3 Query Facility. The Program 
Description and Operations Manual should remain the prime information 
source for the Facility, but this Systems Guide will be of value in 
making extensive modifications and diagnosing unusual error conditions. 
Also included is a suggested approach for generating the facility to 
execute on a System/3 Model 6. 
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SYSTEM OVERVIEW 


The System/3 Query Facility is a tool that allows the user, programmer, 
and non-programmer alike to selectively access disk data files for prepar- 
ing reports or gathering statistics. By using the functions provided in 
four simple commands and the functions of the System/3 Disk Sort, the user 
can rapidly formulate queries to the system and receive responses in the 


form of printed output without expending time and effort for writing and 
testing programs. peas 


system Description . 


The System/3 Query Facility is comprised of two programs written in RPG II. 
Input to the first program is the "SELECT' and 'SORT'’ commands. This pro- 
gram translates these statements into control statements that are compatible 
with the System/3 disk sort. : 


Upon processing these control statements, the sort utility then produces 
an output file. of the records the user has selected, placing them in the 
defined sequence. This file then becomes input to the second program of 
the facility which processes the data and produces a report according to 
the definitions established by the 'PRINT' and 'COUNT' commands. Figure 4. 
presents samples of the control Statements; Figure 5 illustrates how a 
query might be written and the resulting report. 


The commands are designed to give a great deal of function to the user and 
demand little concern for rigid formatting. They are written in a manner 
that conveys meaning to the writer of a query, making a request simple and 
direct, and provides results in a minimum of time. 


Programming Systems 


The programs were written and tested under RPG II (5702-RG1, Version 5, 
Modification Level 0) for the System/3 Model 10 (disk). -Instructions are 
provided for adaptation to a System/3 Model 6. In addition to the RPG II 
Compiler, the Disk Sort Program (5702-SM1) is required. 


System Configuration 


The object programs require 9216 bytes of memory. With a normal size core- 
resident system control program (approximately 3K bytes) a 12K central 
processor is required. The programs will execute on an otherwise minimum 
System/3 Model 10 disk Geénfiyuration: “Sufficient disk space should be 


available for sort work areas and output areas. 
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PROGRAMMING TECHNIQUES 


The purpose of this section is to provide a general overview of the program- 
ming philosophy used in creating the Query Facility and to briefly describe 
the uses and functions of key fields, arrays, and subroutines. Because of 
the nature of the programs and the generally low requirements for the user 
to perform extensive modification, a "microscopic" perspective will not be 
provided. 


For both programs, the command statements are read into arrays that are com- 

prised of l-byte character-formatted elements. These arrays can then be eS 
scanned, keying on the primary delimiters (blanks, commas, parentheses), to 
extract parameters from the control statements. This scanning techinique-is 
necessary because of the freedom of format allowed in statement construc- 
tion. When the parameters (e.g. data element names and logical operators) 
are isolated in the input array they are stored for later reference in 
Operand-oriented arrays that correspond to their function. For example, 
each data element’ name extracted from the 'SORT' command (program ANBO1) 

is placed in the array 'FLD' that is later referenced to produce the sort 
field specifications. The output print lines in the program ANBO2 are also 
arrays in which each print line is constructed byte-by-byte. A close in- 
spection of the scanning, data extraction, and output line construction 
logic in both programs reveals that the technique is_not unlike that which 
would be used in Assembler Language coding. RPG II coding was implemented ae: 
to avoid excluding the Model 6 user and those Model 10 users that do not. 

have assemblers. 


PROGRAM ANBO1 


Arrays : g 


TABFLD -- This table contains the portion of the Data Element . : —_~ 
Dictionary that is the data element name. 


TABPAR -- This table (al].tternates with TABPAR) contains the remainder 
of the information for the Data Element Dictionary including: 
location of the field in the record, format, number of — 
decimals, print field size, and heading information. 


IN -- Array that is the command statement input area. 


SRT -- The array that the entire 'SORT' command is. moved to (from 
‘IN') prior to scanning. 


SEL -- This array’ contains the one or two cards comprising the 
"SELECT' statement. Each card is moved from the input 


array 'IN' when it is read. 


OPA -- This array contains the -A' or first operand of each com- 
parative Boolean relationship, always a data element name. 
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Arrays 


OPB -- 


BO -= 


LN -~ 


LBF -- 


FLD -- 


SCANSR 


SCANSL 


PARAMS 


FLDFIL 


RCDCRD 


SRTCRD 


LITRAL 


Subroutines 


This array contains the 'B' Or second operand of each com- 
parative Boolean relationship, either a data element name 
or a literal field. 


This array contains the comparative operator for each 
Boolean relationship (GT, LT, EQ, etc.). 
This array contains the first 2 characters of the linkage 
operator ('AND' or 'OR') that: connects each pair of com- 
parative relationships. 


This is the array in which literals are constructed prior 
to output, termed the "literal buffer". 


This array contains the data element names extracted from 
the ‘SORT’ statement. The last byte contains the sequence 
by which that field is to be sorted (N-normal, D-descending) . 


Scans the array containing the 'SORT' control statement 
("SRT') extracting the data element names and the sequence 
codes and places them in the array 'FLD'. 


Scans the array containing the 'SELECT' control statement 
("SEL') extracting the logical operators and operands 
(within the parentheses) and the linkage operators (connect 
ing the comparative relationships) and placing them in the 
arrays 'OPA', 'OPB', 'BO', and 'LN'. 


Extracts the definitive parameters for a data element name 
from the Data Element Dictionary entry. 


Called by the routines 'SCANSR' and 'SCANSL' to move the 
operand or operator they have encountered into a 20-byte 
field 'BYT20' left adjusted. 


This routine takes the Operands and operators from the 
"SELECT' statement (found in arrays 'OPA!, 'OPB', 'BO', 
"LN') and punches the sort specifications that specify 
record selection. 


Takes the fields that are to be sorted from the array 'FLD' 
and and produces disk sort specification cards. 


This routine analyzes literal fields found in the array 
‘OPB' and performs the following functions: right- or left- 
justification, decimal alignment, and padding for matching 
field lengths, Sign extraction. 
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Arrays 


AIN -- 


ALN -- 
‘HLN <= 
ACN -- 


TABFLD/ 
TABPAR 
FLD -- 
CNT -= 


BF =~ 


TOT -- 


Subroutines 


ANALYZ 


PARAMS 


BLDLNX 


MVNUMS 


NUMRIC 


PROGRAM ANBO2 


Array in which the disk record for the queried file is 
stored for data extraction. 


Print-line array for detail lines. 
Print-line array for heading line. 


Input array for control statements. 


See "Arrays", program ANBO1. 


Array containing operands (data element names and numeric 
constants) of the. 'PRINT' statement. 


Array containing the data element names of the ‘COUNT’ 
statement. 


Buffer in which numeric fields are assembled, edited, zero 
suppressed, before placement in the print line. 


Array in which the totals for the 'COUNT' fields are 
accumulated. 


Scans the 'PRINT' and 'COUNT' statements in the array 
‘ACN' and isolates the operands encountered, placing them 
in the arravs 'FLD' or ‘CNT’. 


Extracts the definitive parameters for each field to be 
printed from the Data Element Dictionary. If the operand 
is-numeric (for space control) it increments the index for 
the print line array and returns to the calling routine. 


Creates the detail print line ('ALN') and the pena rns 
print line ('HLN'). 


Extracts a zoned-decimal field from the input disk record 
and places it in a numeric field 'NM' for later editing. 


Edits the numeric field 'NM' and places it in the output 
line. 
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Subroutines 
pusroutines 


UNPACK -- Isolates packed-decimal fields in the input disk record 
and places them in the numeric field 'NM'. 


TOTOUT -- Outputs the total fields for the 'COUNT' statement after 
it causes them to be edited. 
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MODIFICATION AIDS 


The only modifications discussed here are those that would allow the system 
to function on a 12K System/3 Model 6. Any other modifications are dis- 
cussed in the Program Description and Operations Manual. The system has 
not been formally tested on a System/3 Model 6 and the following informa~ 
tion is suggested only as a guide to implementation in that environment. 


To avoid the errors inherent in keying the source programs using Keyboard 
Source Entry it is more practical to load the source programs in card form 
using a Model 6 with a data recorder or a Model 10 disk system. When using 


a Model 10 to place the source decks in the source library use the follov- 
ing OCL for each program: 


// READER MFCUL 

// WCOAD $MAINT, Fl 

// RUN 

// COPY FROM-READER, TO=R1, LIBRARY-S, RETAIN-P, NAME-ANBXX 


// CEND 7 
// END 


The modifications to allow execution on a Model 6 are mainly oriented to 
the File Description section of the programs. For program ANBO1, the File 
Description specifications for the files 'SPECSIN' and 'SPECSOUT' must be 
changed. 'SPECSIN' must be altered in columns 40-46 from 'MFCUL' to 
"CONSOLE'. 'SPECSOUT' must be modified in columns 40-46 from 'MFCU2' to 
"TRACTRL' and in columns 22-23 from '96' to '01'. This will cause the 
program to look for input: via the console-keyboard and to place the sort 
specifications (normally punched into cards on the MFCU) on the printer 
file.. This requires that the specifications be keyed into the Disk Sort 
Prodram in Phase II of execution. In addition, the output specifications 
with '*PRINT' in columns 32-37 must be deleted. Finally, place the printer 
spacing controls in'each 'E' and 'T' type output line, a 'l' in column 18 
of these lines will suffice. 


Only the File Description specifications for program ANBO2 should require 
change. For the file 'CONTROL' change columns 40-46 from 'MFCU1' to 
"CONSOLE'; for the file 'LIST' change columns 40-46 to 'TRACTRI' and col- 
umns 22-23 to Ol. The OCL required for execution of the facility is very 
compatible between Model 6 and Model 10 and therefore no discussion of OCL 
will be presented. 
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Page Numbering and Date Identification 
a Sete i gentification 


A potentially valuable modification to make to the Facility is the 
addition of page numbering and system date to Print on each page of 
the report. This would serve as reference information to the user of 
the report information. The following cards should be keyed and in- 
serted in the source deck of program ANBO2 using the statement number 
identifier (columns 1-5) to properly place these cards in the deck: 


035540 PAGE Z 96 
035550 93 'PAGE' 
035560 UDATE Y 88 
035570 D 12 99N75N69 

035580 OR OF 


User Report Headings 


This modification to ANBO2 would allow the user to include a heading 
card along with the 'PRINT' and "COUNT' statements when executing the 
print program (Phase III). By creating a card with the characters 
'**' in columns 1 and 2, the remaining columns may contain any identi- 
fying information that the user wishes to appear at the top of his 


printed output. The following cards are required in the source deck 
of ANBO2: 


OO208ICONTROL NS 35 i Ge 2 c* 


002091 ‘ 3 96 HEADG 
00295c 35 GOTO ENDCAL 
035530 HEADG 96 


If the modification for date and page numbering has not been made, 
include statements 3547-8 as described in the Previous section. 


Tag Sorting 


To decrease the time required to sort a larger master file and reduce 
the size of the sort work and output files, the "TAG" sorting technique 
could be implemented to produce an ADDROUT file for input to ANBO2. 


In program ANBO1, statement number 4000 should have the literal changed 


to 'HSORTA', statement number 4030 should be changed to output a literal 
of '0' in position 27, and statements 4350-4380 should be removed. 
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Program ANBO2 requires the addition of a file description specification 
for the Record Address file, modification of the file description speci- 
fication for the file 'INPUT' to be processed via the RA file, and 
creation of an extension Specification should be added to associate 

the RA file with the file ‘INPUT’. : 


These modifications may require more than a 12K CPU to function. Addi- 
tional information relating to TAG sorts and processing Record Address 
files can be found in the System/3 Disk Sort and RPG II reference 
manuals. 
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